home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997 August / Macworld (1997-08).dmg / Serious Demos / Crimson Demo / Crimson Demos / Customer File / Initial < prev    next >
Text File  |  1997-06-17  |  286b  |  13 lines
  1. Global CurrentRecord As Integer
  2. Global NextFreeRec As Integer
  3. Global Mode As Integer
  4. Global Gash As Integer
  5.  
  6.         Open "CustomerFile" For Random As #1 Len=366
  7.         LocateForm.OpenWindow
  8.         Do Read_File
  9.         CustForm.OpenWindow
  10.         CurrentRecord=1
  11.         Mode={Q}
  12.         Gash=Populate_CustForm(CurrentRecord)
  13.